home *** CD-ROM | disk | FTP | other *** search
/ Over 1,000 Windows 95 Programs / Over 1000 Windows 95 Programs (Microforum) (Disc 2).iso / 0301 / winprbil.bas < prev    next >
Encoding:
BASIC Source File  |  1997-03-31  |  5.7 KB  |  196 lines
  1. 'WinPrbil.bas module for Trucklog For Windows 3.X by Charles MacDonald (C) 1996
  2. 'This file can be changed and compiled under QuickBasic V 4.5 and should
  3. 'be called winprbil.exe and saved in your trucklog directory
  4. 'you may modify this code as you see fit.
  5.  
  6. DIM ProBill$(55)
  7. OPEN "temp.fil" FOR INPUT AS #1
  8. FOR i = 1 TO 55
  9.  INPUT #1, ProBill$(i)
  10. NEXT i
  11. CLOSE #1
  12. 'The ProBill$() array is as follows
  13. 'ProBill$(1)  Date of Load
  14. 'ProBill$(2)  Shipper Name
  15. 'ProBill$(3)  Shipper Address
  16. 'ProBill$(4)  Shipper City
  17. 'ProBill$(5)  Shipper State/Province
  18. 'ProBill$(6)  Shipper Phone Number
  19. 'ProBill$(7)  Freight Rate
  20. 'ProBill$(8)  Freight Weight
  21. 'ProBill$(9)  Freight Charges (Before tax)
  22. 'ProBill$(10) Freight Tax
  23. 'ProBill$(11) Freight Charges (After tax)
  24. 'ProBill$(12) Driver taking load on highway
  25. 'ProBill$(13) Highway Driver Hours/Miles
  26. 'ProBill$(14) Highway Driver Overtime/Other Bonus
  27. 'ProBill$(15) Highway Driver Safety Bonus
  28. 'ProBill$(16) Truck used on highway
  29. 'ProBill$(17) Trailer loaded with shipment
  30. 'ProBill$(18) Invoice Number
  31. 'ProBill$(19) Commodity
  32. 'ProBill$(20) Consignee Name
  33. 'ProBill$(21) Consignee Address
  34. 'ProBill$(22) Consignee City
  35. 'ProBill$(23) Consignee Province/State
  36. 'ProBill$(24) Consignee Phone Number
  37. 'ProBill$(25) Driver who loaded trailer
  38. 'ProBill$(26) Truck used for loading
  39. 'ProBill$(27) Hours/Miles paid for loading
  40. 'ProBill$(28) Overtime/Other bonus for loading
  41. 'ProBill$(29) Safety Bonus for loading
  42. 'ProBill$(30) Switch Commodity
  43. 'ProBill$(31) Special Instructions
  44. 'ProBill$(32) Company to deliver to
  45. 'ProBill$(33) Address to deliver to
  46. 'ProBill$(34) City to deliver to
  47. 'ProBill$(35) Province/State of company to deliver to
  48. 'ProBill$(36) Phone Number of company to deliver to
  49. 'ProBill$(37) Driver Delivering Load
  50. 'ProBill$(38) Hours/Miles for delivery driver
  51. 'ProBill$(39) Overtime/Other bonus for driver delivering load
  52. 'ProBill$(40) Safety Bonus for driver delivering load
  53. 'ProBill$(41) Truck Number used to deliver
  54. 'ProBill$(42) Switch at
  55. 'ProBill$(43) Time of switch
  56. 'ProBill$(44) Trailer Switched
  57. 'ProBill$(45) Truck Switched
  58. 'ProBill$(46) City Switch is going to
  59. 'ProBill$(47) Where to deliver switch
  60. 'ProBill$(48) Driver at Switch
  61. 'ProBill$(49) Hours/Miles for switch driver
  62. 'ProBill$(50) Overtime/Other bonus for switch driver
  63. 'ProBill$(51) Safety Bonus for switch Driver
  64. 'ProBill$(52) ETA
  65. 'ProBill$(53) Time Loaded
  66. 'ProBill$(54) Pickup Time
  67. 'ProBill$(55) Charged to (S=Shipper - C=Consignee - O=C.O.D.)
  68. 'Other Variables used are
  69. 'comdesc$ = description of the commodity
  70. 'pcol$ = prepaid or collect
  71. CLS
  72. '-------------------------------Do Not Change Above this Line-----------------
  73. 'This is the area you will want to make changes in
  74.  
  75. 'Get Info On PrePaid or Collect Invoice
  76.  DO
  77.   INPUT "PrePaid or Collect (P/C) "; pcol$
  78.   pcol$ = UCASE$(pcol$)
  79.   IF pcol$ = "P" OR pcol$ = "C" THEN EXIT DO
  80.  LOOP
  81.  
  82. 'Get the ProBill number
  83.  IF LEN(RTRIM$(ProBill$(18))) = 0 THEN
  84.   INPUT "Enter ProBill# "; ProBill$(18)
  85.  END IF
  86.  
  87. 'Assert The Shipper is correct
  88.  PRINT "Load from "; RTRIM$(ProBill$(2)); " "; RTRIM$(ProBill$(4))
  89.  
  90.  DO
  91.   INPUT "Correct "; yn$
  92.   IF UCASE$(yn$) = "Y" OR UCASE$(yn$) = "N" THEN EXIT DO
  93.  LOOP
  94.  
  95.  IF UCASE$(yn$) = "Y" THEN
  96.   ProBill$(2) = RTRIM$(ProBill$(2))
  97.   ProBill$(4) = RTRIM$(ProBill$(4))
  98.  ELSE
  99.   DO
  100.    INPUT "Enter shipper name "; ProBill$(2)
  101.    INPUT "Enter City from "; ProBill$(4)
  102.    PRINT "Shipper "; ProBill$(2)
  103.    PRINT "From "; ProBill$(4)
  104.    INPUT "Correct "; yn$
  105.    yn$ = LEFT$(UCASE$(yn$), 1)
  106.    IF yn$ = "Y" THEN EXIT DO
  107.   LOOP
  108.  END IF
  109.  
  110. 'Assert the Consignee is Correct
  111.  PRINT "Load Consignee "; RTRIM$(ProBill$(20)); " "; RTRIM$(ProBill$(22))
  112.  
  113.  DO
  114.   INPUT "Correct "; yn$
  115.   IF UCASE$(yn$) = "Y" OR UCASE$(yn$) = "N" THEN EXIT DO
  116.  LOOP
  117.  
  118.  IF UCASE$(yn$) = "Y" THEN
  119.   ProBill$(20) = RTRIM$(ProBill$(20))
  120.   ProBill$(22) = RTRIM$(ProBill$(22))
  121.  ELSE
  122.   DO
  123.    INPUT "Enter Consignee name "; ProBill$(20)
  124.    INPUT "Enter Consignee City "; ProBill$(22)
  125.    PRINT "Consignee "; ProBill$(20)
  126.    PRINT "City "; ProBill$(22)
  127.    INPUT "Correct "; yn$
  128.    yn$ = LEFT$(UCASE$(yn$), 1)
  129.    IF yn$ = "Y" THEN EXIT DO
  130.   LOOP
  131.  END IF
  132.  
  133. 'Assert the Load is Being Delivered to the Proper Place
  134.  PRINT "Load deliver to "; RTRIM$(ProBill$(32)); " "; RTRIM$(ProBill$(34))
  135.  
  136.  DO
  137.   INPUT "Correct "; yn$
  138.   IF UCASE$(yn$) = "Y" OR UCASE$(yn$) = "N" THEN EXIT DO
  139.  LOOP
  140.  
  141.  IF UCASE$(yn$) = "Y" THEN
  142.   ProBill$(32) = RTRIM$(ProBill$(32))
  143.   ProBill$(34) = RTRIM$(ProBill$(34))
  144.  ELSE
  145.   DO
  146.    INPUT "Enter company to deliver to "; ProBill$(32)
  147.    INPUT "Enter City to deliver to "; ProBill$(34)
  148.    PRINT "Deliver to "; ProBill$(32)
  149.    PRINT "City "; ProBill$(34)
  150.    INPUT "Correct "; yn$
  151.    yn$ = LEFT$(UCASE$(yn$), 1)
  152.    IF yn$ = "Y" THEN EXIT DO
  153.   LOOP
  154.  END IF
  155.  
  156. 'Get Number and Description of articles
  157.  INPUT "Description of articles "; comdesc$
  158.  INPUT "Please insert bill and press <ENTER> to print "; a$
  159.  
  160. 'This is where the info is being printed on the printer
  161.  
  162.  IF pcol$ = "C" THEN
  163.   LPRINT TAB(7); "X";
  164.  END IF
  165.  
  166.   LPRINT TAB(10); ProBill$(20); " "; TAB(35); ProBill$(22)
  167.   LPRINT TAB(70); ProBill$(1)
  168.   LPRINT TAB(10); ProBill$(32); " "; ; TAB(35); ProBill$(34)
  169.   LPRINT
  170.  
  171.  IF pcol$ = "P" THEN
  172.   LPRINT TAB(7); "X";
  173.  END IF
  174.  
  175.  LPRINT TAB(10); ProBill$(2); " "; TAB(35); ProBill$(4)
  176.  LPRINT
  177.  LPRINT
  178.  LPRINT
  179.  LPRINT
  180.  LPRINT TAB(4); ProBill$(19); TAB(10); " "; comdesc$;
  181.  LPRINT TAB(65); VAL(ProBill$(7))
  182.  LPRINT
  183.  LPRINT
  184.  LPRINT
  185.  LPRINT
  186.  LPRINT TAB(65); VAL(ProBill$(10))
  187.  LPRINT
  188.  LPRINT TAB(65); VAL(ProBill$(11))
  189.  LPRINT CHR$(12)
  190.  
  191. '-------------------Do Not Change Below This Line-----------------------------
  192. 'Remove Temporary Data From Disk and Return to Main Program
  193.  KILL "temp.fil"
  194.  END
  195.  
  196.